ziskani hadle ikony

Otázka od: Vymazal Milan

27. 9. 2002 13:58

Zdravim

delam si takovej malickej filebrowser a potrebuji pro novy item v
listview priradit ikonu souboru

vim ze se to dela pomoci funkce shgetfileinfo

le me to nejak nefunguje

Jo a listview1 ma vlastnost ViewStyle vsReports

item:=Listview1.items.add;
item.caption:='';

SHGetFileInfo(PChar(findfile3.files[i]), 0, SFI, SizeOf(SFI),
SHGFI_ICON+SHGFI_SHELLICONSIZE+SHGFI_SMALLICON);
item.imageindex:=SFI.hIcon;

Odpovedá: Kalus Jozef Ing.

27. 9. 2002 13:08

ListDokument
ListVybPriecinok
su TListView

a robim to takto (mozno ze niekto ma iny kus zdrojaku, odniekial som ho
vytrhol uz si nepamatam odkial):

var
  LargeSysIcons, SmallSysIcons: TImageList;
....
....
....
procedure TFormMain.LoadSysImages;
var
        SysIL: uint;
        SFI: TSHFileInfo;
begin
        LargeSysIcons := TImageList.Create(FormMain.Owner);
        SysIL := SHGetFileInfo('',0,SFI,SizeOf(SFI),SHGFI_SYSICONINDEX or
SHGFI_LARGEICON);
        if SysIL <> 0 then
                begin
                        LargeSysIcons.Handle := SysIL;
                        LargeSysIcons.ShareImages := TRUE;
                end;
        ListDokument.LargeImages := LargeSysIcons;
        ListVybPriecinok.LargeImages := LargeSysIcons;

        SmallSysIcons := TImageList.Create(FormMain.Owner);
        SysIL := SHGetFileInfo('',0,SFI,SizeOf(SFI),SHGFI_SYSICONINDEX or
SHGFI_SMALLICON);
        if SysIL <> 0 then
                begin
                        SmallSysIcons.Handle := SysIL;
                        SmallSysIcons.ShareImages := TRUE;
                end;
        ListDokument.SmallImages := SmallSysIcons;
        ListVybPriecinok.SmallImages := SmallSysIcons;
end;

joka

-----Original Message-----
From: Vymazal Milan [mailto:vymazal.milan@seznam.cz]
Sent: Friday, September 27, 2002 1:54 PM
To: delphi-l@clexpert.cz
Subject: ziskani hadle ikony

Zdravim

delam si takovej malickej filebrowser a potrebuji pro novy item v
listview priradit ikonu souboru

Odpovedá: Petr Vones

1. 10. 2002 11:59

From: "Vymazal Milan" <vymazal.milan@seznam.cz>
> delam si takovej malickej filebrowser a potrebuji pro novy item v
> listview priradit ikonu souboru

Podivej se na demo v adresari $(DELPHI)\Demos\Virtual Listview

Petr Vones